﻿Public Class PropertyGetEventArgs(Of TProperty)
    Inherits EventArgs
    Private _propertyValue As TProperty
    Private _returnValue As TProperty
    Public Sub New(ByVal propertyValue As TProperty, ByVal returnValue As TProperty)
        _propertyValue = propertyValue
        _returnValue = returnValue
    End Sub
    Public Property propertyValue() As TProperty
        Get
            Return _propertyValue
        End Get
        Set(ByVal value As TProperty)
            _propertyValue = value
        End Set
    End Property
    Public Property returnValue() As TProperty
        Get
            Return _returnValue
        End Get
        Set(ByVal value As TProperty)
            _returnValue = value
        End Set
    End Property
End Class
